home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / tip / boxing5.tip < prev    next >
Text File  |  1993-09-15  |  3KB  |  106 lines

  1. % This macro source file is from the four volume series
  2. % "TeX in Practice" by Stephan von Bechtolsheim, published
  3. % 1993 by Springer-Verlag, New York.
  4. % Copyright 1993 Stephan von Bechtolsheim.
  5. % No warranty or liability is assumed.
  6. % This macro may be copied freely if no fees other than
  7. % media cost or shipping charges are charged and as long
  8. % as this copyright and the following source code itself
  9. % is not changed. Please see the series for further information.
  10. %
  11. % Version: 1.0
  12. % Date: May 1, 1993
  13. %
  14. %
  15. % This source code is documented in 9.3.6.1, p. I-327.
  16. % Original source in file "boxit.TEX", starting line 719.
  17. \wlog{L: "boxing5.tip" ["boxit.TEX," l. 719, p. I-327]}%
  18. % This file DOES belong to format "texip."
  19. \InputD{box-zero.tip}
  20. \InputD{box-bul.tip}
  21. \InputD{box-bb.tip}
  22. \InputD{box-thck.tip}
  23. \catcode`\@ = 11
  24. \newif\ifBulletAndBaseLine
  25. \BulletAndBaseLinetrue
  26. \def\RulesOutSide #1#2#3{% 
  27.     {%
  28.         \setbox 0 = \hbox{%
  29.             \ifBulletAndBaseLine
  30.                 \copy\@BulletBox
  31.             \fi
  32.             \hskip -\BoxRuleThickness
  33.             \vrule width \BoxRuleThickness height #1 depth #2% 
  34.             \hskip #3%
  35.             \vrule width \BoxRuleThickness height #1 depth #2%
  36.             \dimen0 = #3% 
  37.             \advance \dimen0 by 2\BoxRuleThickness
  38.             \hskip -\dimen0
  39.             \dimen2 = #1%
  40.             \advance\dimen2 by \BoxRuleThickness
  41.             \vrule width \dimen0 height \dimen2 depth -#1% 
  42.             \hskip -\dimen0
  43.             \dimen2 = #2% 
  44.             \advance\dimen2 by \BoxRuleThickness
  45.             \vrule width \dimen0 height -#2 depth \dimen2
  46.         }%
  47.         \ZeroBoxOut{0}% 
  48.     }% 
  49. }
  50. \def\RulesInSide #1#2#3{% 
  51.     {%
  52.         \setbox 0 = \hbox{%
  53.             \ifBulletAndBaseLine
  54.                 \copy\@BulletBox
  55.             \fi
  56.             \vrule width \BoxRuleThickness height #1 depth #2% 
  57.             \hskip #3% 
  58.             \hskip -\BoxRuleThickness
  59.             \hskip -\BoxRuleThickness
  60.             \vrule width \BoxRuleThickness height #1 depth #2% 
  61.             \hskip -#3% 
  62.             \dimen2 = #1% 
  63.             \advance\dimen2 by -\BoxRuleThickness
  64.             \vrule width #3 height #1 depth -\dimen2
  65.             \hskip -#3% 
  66.             \dimen2 = #2% 
  67.             \advance\dimen2 by -\BoxRuleThickness
  68.             \vrule width #3 height -\dimen2 depth #2% 
  69.         }%
  70.         \ZeroBoxOut{0}% 
  71.     }% 
  72. }
  73. \def\RulesOnSide #1#2#3{% 
  74.     {%
  75.         \setbox 0 = \hbox{% 
  76.             \ifBulletAndBaseLine
  77.                 \copy\@BulletBox
  78.             \fi
  79.             \hskip -0.5\BoxRuleThickness
  80.             \vrule width \BoxRuleThickness height #1 depth #2% 
  81.             \hskip #3% 
  82.             \hskip -\BoxRuleThickness
  83.             \vrule width \BoxRuleThickness height #1 depth #2% 
  84.             \hskip -#3% 
  85.             \hskip -\BoxRuleThickness
  86.             \dimen0 = #3% 
  87.             \advance\dimen0 by \BoxRuleThickness
  88.             \dimen2 = #1% 
  89.             \advance\dimen2 by 0.5\BoxRuleThickness
  90.             \dimen4 = #1% 
  91.             \advance\dimen4 by -0.5\BoxRuleThickness
  92.             \dimen4 = -\dimen4
  93.             \vrule width \dimen0 height \dimen2 depth \dimen4
  94.             \hskip -\dimen0
  95.             \dimen2 = #2% 
  96.             \advance\dimen2 by -0.5\BoxRuleThickness
  97.             \dimen2 = -\dimen2
  98.             \dimen4 = #2% 
  99.             \advance\dimen4 by 0.5\BoxRuleThickness
  100.             \vrule width \dimen0 height \dimen2 depth \dimen4
  101.         }%
  102.         \ZeroBoxOut{0}% 
  103.     }% 
  104. }
  105. \catcode`\@ = 12
  106.